Shock - The Game/Shock The Game.iso/pc/casts/old.cst/00008_hotspot scripts -- old.ls

Text File | 1997-04-08 | 4.9 KB | 205 lines

--global GvidSprite, GnavOb, GscreenObject, GalertOb, GqaOb, GflowerFlag
--
--on flower
--  if GflowerFlag then
--    repeat with x = 14028 to 14214
--      set the movieTime of sprite GvidSprite = x
--      updatestage
--    end repeat
--
--    if objectP(GqaOb) then set the PmyGetStuffFlag of getat(the PmyGirlList of GqaOb,2) = 1
--    set the PtheFlower of GscreenObject = 1
--    addCard GscreenObject, 42, 161, 218, 78 -- "flower"
--    -- addCard GscreenObject, 47, 261, 443, 0
--    moveCards GscreenObject, -1
--    updatestage
--    set GflowerFlag = 0
--  else
--    repeat with x = 13680 to 14028
--      set the movieTime of sprite GvidSprite = x
--      updatestage
--    end repeat
--    set GflowerFlag = 1
--  end if
--end
--
--
--on arcades
--  if the PmyCredits of GscreenObject > 100 then
--    if the mouseh > 288 and the mouseH < 440 then
--      goThing "cpm"
--    else if the mouseh > 440 then
--      goThing "cpr"
--    else
--      goThing "cpl"
--    end if
--    set the PmyCredits of GscreenObject = the PmyCredits of GscreenObject - 100
--  else
--    puppetsound member "vo15.aiff" of castlib "sound"
--  end if
--end
--
--
--on arcaden
--  if the mouseh > 288 and the mouseH < 440 then
--    goThing "prm"
--  else if the mouseh > 440 then
--    goThing "prr"
--  else
--    repeat with x = 44784 to 44898
--      set the movieTime of sprite GvidSprite = x
--      updatestage
--    end repeat
--    goThing "bjk"
--  end if
--end
--
--
--on malletMask
--  set the Pthemallet of GscreenObject = 1
--  addCard GscreenObject, 41, 171, 280, 79 -- "hammer"
--  moveCards GscreenObject, -1
--end
--
--
--on goVip
--  goThing "vip"
--end
--
--on transLobby
--  if the mouseh > 322 then
--    if the mouseh < 424 then
--      if the mousev >238 and the mousev < 265 then
--        goThing "tlh"
--      else if the mouseV > 289 and the mouseV < 314 then
--        extraHelp 21
--      end if
--    else
--      if the mousev > 244 and the mousev < 309 then goThing "tlm"
--    end if
--  end if
--end
--
--on enterShip
--  goThing "ent"
--end
--
--
--on giftShop
--  if the mouseH > 305 then
--    if the mouseH < 444 then
--      if the mouseV > 293 and the mouseV < 340 then
--        set myCash = the PmyCredits of GscreenObject
--        if myCash > 100 then
--          set myCash = myCash - 100
--          set the PmyCredits of GscreenObject = myCash
--          goThing "rb1"
--          addCandy
--        else
--          puppetsound member "vo15.aiff" of castlib "sound"
--        end if
--      end if
--
--    else
--      if the mouseV > 362 and the mouseV < 386 then
--        set myCash = the PmyCredits of GscreenObject
--        if myCash > 100 then
--          set myCash = myCash - 100
--          set the PmyCredits of GscreenObject = myCash
--          goThing "rb2"
--          addToy
--        else
--          puppetsound member "vo15.aiff" of castlib "sound"
--        end if
--      end if
--    end if
--  end if
--end
--
--
--
--on addToy
--  addCard GscreenObject, 40, 181, 353, 80 -- "toys"
--  moveCards GscreenObject, -1
--  set the PtheToy of GscreenObject = 1
--  updatestage
--end
--
--on addCandy
--  addCard GscreenObject, 39, 191, 409, 81 -- "candy"
--  set the PtheCandy of GscreenObject = 1
--  if objectP(GqaOb) then set the PmyGetStuffFlag of getat(the PmyGirlList of GqaOb,3) = 1
--  -- addCard GscreenObject, 48, 271, 535, 0
--  moveCards GscreenObject, -1
--end
--
--
--on goMassage
--  puppetsprite (GvidSprite - 1), 1
--  set the membernum of sprite (GvidSprite - 1) = member 71 of castlib "modules"
--  updatestage
--  addCard GscreenObject, 38, 201, 480, 0
--  goThing "mas"
--end
--
--
--on transMall
--  if the mouseh < 404 then
--    if the mouseH > 303 then
--      if the mousev > 213 and the mousev < 238 then
--        goThing "tmh"
--      else if the mouseV > 259 and the mouseV < 282 then
--        extraHelp 31
--      end if
--    else if the mousev > 213 and the mousev < 286 then
--      goThing "tml"
--    end if
--  end if
--end
--
--
--on transHotel
--  if the mousev > 205 and the mousev < 261 then
--    if the mouseh > 290 and the mouseh < 316 then
--      goThing "thl"
--    else if the mouseh > 426 and the mousev < 450 then
--      goThing "thm"
--    else
--      if the mouseV > 238 then extraHelp 29
--    end if
--  end if
--end
--
--
--on returnNav whichNode, whichFrame
--  if the membernum of sprite 10 then
--    puppetsprite 10,1
--    set the membernum of sprite 10 = the membernum of sprite 10
--  end if
--  go "nav"
--  set GnavOb = new(script "navOb", whichNode, whichFrame)
--end
--
--
--
--on hintThing
--  goThing "hnt"
--end
--
--
--on goThing where
--  set the keydownScript = empty
--  sound stop 1
--  puppetsprite GvidSprite,0
--  puppetsprite (GvidSprite - 1),0
--  go where
--end
--
--on alertThing
--  if not objectP(GalertOb) then
--    set GalertOb = new(script "GalertOb")
--    addProp the PmyHotSpotList of GscreenObject, 50, GalertOb
--  end if
--end
--